home *** CD-ROM | disk | FTP | other *** search
Modula Implementation | 1993-08-16 | 477 b | 27 lines |
- IMPLEMENTATION MODULE AssSort;
-
- FROM SYSTEM IMPORT BYTE,WORD,ADDRESS,BITSET,LONGSET,FFP,INLINE,SETREG,REG;
-
- CONST
- MOVEMS = 48E7H;
- MOVEML = 4CDFH;
-
- (*------ AssSort ------*)
-
- PROCEDURE AssSort(A0{ 8}:ADDRESS;D0{ 0}:LONGCARD);
-
- BEGIN
-
- INLINE(MOVEMS,03800H);
-
- INLINE(04281H,02401H,02248H,05282H,05489H,03611H,0B650H,06406H);
- INLINE(03810H,03083H,03284H,0B480H,065ECH,05281H,05488H,0B280H);
- INLINE(065E0H);
-
- INLINE(MOVEML,0001CH);
-
- END AssSort;
-
- BEGIN
- END AssSort.
-